perm filename KLDCPU.PAL[KL,SYS]1 blob
sn#214680 filedate 1976-05-13 generic text, type C, neo UTF8
COMMENT ā VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY
C00003 00003 ASSEMBLY PARAMETERS
C00006 ENDMK
Cā;
;DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY
; IMPORTANT: Parameter assignments in this file must agree with those in KLDCP
DECVER=7
MCNVER=0
SAILVR==5 ;STANFORD VERSION NUMBER. (DEFINING SAILVR MAKES STANFORD ASSEMBLY)
.TITLE KLDCPU DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY, VER 0.7
.LIST MC,MD
;.DSABL GBL
;.DSABL REG
.ABS
;.ENABL AMA
;JOHN R. KIRCHOFF
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752
;ASSEMBLY PARAMETERS
;DTEASB=1 ;ASSEMBLE DTE20
;KWASB= 1 ;ASSEMBLE KW CLOCK
;DLASB= 1 ;ASSEMBLE DL11
;DHASB= 1 ;ASSEMBLE DH11
;TAASB= 1 ;ASSEMBLE TA CASSETTE
RXASB= 1 ;ASSEMBLE RX11/RX01 FLOPPY
TCASB= 1 ;ASSEMBLE TC DECTAPE
RPASB= 1 ;ASSEMBLE RP04 DISK PACK
LPASB= 1 ;ASSEMBLE LP20 LINE PRINTER
EPTREL==1 ;ASSEMBLE EXAMINES/DEPOSITS FOR COMMUNICATIONS RELATIVE TO EPT
$NB= 8. ;USE 8 BREAKPOINTS
;UTILITY CODE BEGINS AT LOCATION 3000
PRGSRT= 3000
COREND= 28.*1024.*2.
;SPECIAL KLDCP LINKAGE ADDRESSES
START= 100000 ;CONSOLE START
$CNTLC= 100004 ;CONTROL C
$CONSL= 100014 ;RETURN TO CONSOLE
$TKS= 100020 ;TTY KBD STATUS
$TKB= 100022 ;TTY KBD BUFFER
$TPS= 100024 ;TTY PRINTER STATUS
$TPB= 100026 ;TTY PRINTER BUFFER
$LPS= 100030 ;LP11 - LINE PRINTER STATUS
$LPB= 100032 ;LP11 - LINE PRINTER BUFFER
$FSTKS= 100034 ;FIELD SERVICE KLINIK INPUT STATUS
$FSTKB= 100036 ;FIELD SERVICE KLINIK INPUT BUFFER
$FSTPS= 100040 ;FIELD SERVICE KLINIK OUTPUT STATUS
$FSTPB= 100042 ;FIELD SERVICE KLINIK OUTPUT BUFFER
$CMTKS= 100044 ;COMM INPUT STATUS
$CMTKB= 100046 ;COMM INPUT BUFFER
$CMTPS= 100050 ;COMM OUTPUT STATUS
$CMTPB= 100052 ;COMM OUTPUT BUFFER
FUQ:: ;THIS IS HERE TO AVOID GETTING A "LOCAL TAG BEFORE LABEL" ERROR
.INSRT PRM11
.INSRT KLDCU1
.INSRT SBST11
.END $ILOAD